home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / term / MEAGORComm.lha / MEAGORComm_Install / Install next >
Text File  |  1996-12-09  |  4KB  |  170 lines
  1. ;$VER:MEAGORComm v1.01a Installer Script
  2.  
  3. (complete 0)
  4. (set @default-dest "Work:")
  5.  
  6. ; Texts
  7.  
  8. (set #Intro-Txt
  9. (cat "\n\nWelcome to the MEAGORComm v1.0a\n"
  10. "Hard Disk Install Script\n\n\n\n"
  11. "(c)1996 David Meagor"
  12. ))
  13.  
  14.  
  15. (set #Path-Txt
  16. (cat "Select the target directory."
  17. "A directory called 'MEAGORComm' will be created there."
  18. ))(set #Path-Help
  19. (cat "\nThis section lets you choose the "
  20. "target directory to install MEAGORComm v1.0a. \n\n"
  21. "A directory MEAGORComm will be created there.\n\n"
  22. "Default is Work:\n\n\n"
  23. @askdir-help
  24. ))
  25.  
  26. ; Main 
  27.  
  28. (message #Intro-Txt)
  29.  
  30. (set target 
  31.     (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  32. ))
  33.  
  34. (set @default-dest target)
  35.  
  36.     (set #destdir
  37.         (askdir
  38.             (prompt "Please select your harddisk's FONTS: directory.")
  39.             (help (cat  "A new font called HyperANSI/8 will be installed "
  40.                                                 "there to provide MEAGORComm with an IBM typeface."
  41.                         ))
  42.             (default "FONTS:")
  43.         )
  44.     )
  45.  
  46. (copyfiles
  47.     (prompt "Copying to " #destdir)
  48.     (help @copy-files-help)
  49.     (source "Fonts")
  50.     (dest #destdir)
  51.     (pattern "#?")
  52. )
  53. (complete 15)
  54.  
  55.  
  56.     (set #destdir
  57.         (askdir
  58.             (prompt "Please select your harddisk's LIBS: directory.")
  59.             (help (cat  "The XPR Librarys required for modem transfer "
  60.                                                 "will be added to you libs, unless newer "
  61.                                                 "versions are already there."
  62.                         ))
  63.             (default "LIBS:")
  64.         )
  65.     )
  66.  
  67.     (foreach "Libs/" "#?.Library"
  68.         (copylib
  69.             (help @copylib-help)
  70.             (prompt "Installing Library: " @each-name)
  71.             (source (tackon "Libs/" @each-name))
  72.             (dest #destdir)
  73.             (noposition)
  74.             (infos)
  75.             (confirm)
  76.         )
  77.     )
  78. (complete 30)
  79.  
  80. (copyfiles
  81.     (prompt "Copying to " #target)
  82.     (help @copy-files-help)
  83.     (source "MEAGORComm")
  84.     (dest (tackon target "MEAGORComm"))
  85.     (pattern "#?")
  86. )
  87.  
  88. (copyfiles
  89.     (prompt "Copying to " #target)
  90.     (help @copy-files-help)
  91.     (source "MEAGORComm.info")
  92.     (dest (tackon target ""))
  93.     (pattern "#?")
  94. ) 
  95.  
  96. (complete 80)
  97.  
  98. (set editor-options
  99.  (select
  100.   (set editor-choice
  101.    (askchoice
  102.     (prompt "Copy defualt screen preferences for screen type"
  103.     (choices "PAL"
  104.              "NTSC"
  105.     )
  106.     (default 0)
  107.     (help "Editor script description:\n\n"
  108.           " PAL:  For computers with 256 horizontal lines. UK etc."
  109.           "\n\n"
  110.           " NTSC: For computers with 200 horizontal lines. USA etc.\n\n\n\n"
  111.  
  112.           @askoptions-help)
  113.     )
  114.    )
  115.   )
  116.   (shiftleft 1 0) ; PAL
  117.   (shiftleft 1 1) ; NTSC
  118.  
  119.  )
  120. )
  121. (complete 70)
  122.  
  123. ;
  124. ; Copy selected editor script
  125. ;
  126. (if
  127.   (IN editor-options 0)
  128.   (
  129.     (copyfiles
  130.       (prompt "Installing the Screen Preferences.")
  131.       (source  "Screen.cfg.PAL" )
  132.       (dest (tackon target "MEAGORComm") )
  133.       (newname "Screen.cfg")
  134.       (infos)
  135.       (help @copyfiles-help)
  136.     )
  137.  
  138.   )
  139. )
  140. (complete 90)
  141.  
  142. (if
  143.   (IN editor-options 1)
  144.   (
  145.     (copyfiles
  146.       (prompt "Installing the Screen Preferences.")
  147.       (source "Screen.cfg.NTSC" )
  148.       (dest (tackon target "MEAGORComm") )
  149.       (newname "Screen.cfg")
  150.       (infos)
  151.       (help @copyfiles-help)
  152.     )
  153.  
  154.   )
  155. )
  156. (complete 90)
  157.              
  158.  
  159. (makeassign "MEAGORComm" (tackon target "MEAGORComm") )
  160.  
  161. (startup "The MEAGORComm Assign."
  162.      (prompt
  163.       "An Assign to MEAGORComm: needs to be added to the \"S:User-Startup\" so the program knows where to find it's data files.")
  164.      (help "Installs the Assign to MEAGORComm: in your S:User-Startup or you must manually add the assign to S:User-Startup.")
  165.      (command (cat "Assign MEAGORComm: " '"'(getassign "MEAGORComm" "a")'"' "\n"))
  166. )
  167.  
  168. (complete 100)
  169.  
  170.